home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 2: CDPD 1 / Almathera Ten on Ten - Disc 2: CDPD 1.iso / pd / 051-075 / 061 / microemacs / tipc.c < prev    next >
C/C++ Source or Header  |  1995-03-13  |  5KB  |  207 lines
  1. /*
  2.  * The routines in this file provide support for the TI-PC and other
  3.  * compatible terminals. It goes directly to the graphics RAM to do
  4.  * screen output. It compiles into nothing if not a TI-PC driver
  5.  */
  6.  
  7. #define termdef 1                       /* don't define "term" external */
  8.  
  9. #include        <stdio.h>
  10. #include        "estruct.h"
  11. #include        "edef.h"
  12.  
  13. #if     TIPC
  14.  
  15. #define NROW    25                      /* Screen size.                 */
  16. #define NCOL    80                      /* Edit if you want to.         */
  17. #define MARGIN  8                       /* size of minimim margin and   */
  18. #define SCRSIZ  64                      /* scroll size for extended lines */
  19. #define NPAUSE  200                     /* # times thru update to pause */
  20. #define BEL     0x07                    /* BEL character.               */
  21. #define ESC     0x1B                    /* ESC character.               */
  22. #define SPACE   32                      /* space character              */
  23. #define SCADD   0xDE000L                /* address of screen RAM        */
  24.  
  25. #define CHAR_ENABLE     0x08            /* TI attribute to show char    */
  26. #define TI_REVERSE      0x10            /* TI attribute to reverse char */
  27. #define BLACK   0+CHAR_ENABLE           /* TI attribute for Black       */
  28. #define BLUE    1+CHAR_ENABLE           /* TI attribute for Blue        */
  29. #define RED     2+CHAR_ENABLE           /* TI attribute for Red         */
  30. #define MAGENTA 3+CHAR_ENABLE           /* TI attribute for Magenta     */
  31. #define GREEN   4+CHAR_ENABLE           /* TI attribute for Green       */
  32. #define CYAN    5+CHAR_ENABLE           /* TI attribute for Cyan        */
  33. #define YELLOW  6+CHAR_ENABLE           /* TI attribute for Yellow      */
  34. #define WHITE   7+CHAR_ENABLE           /* TI attribute for White       */
  35.  
  36.  
  37. extern  int     ttopen();               /* Forward references.          */
  38. extern  int     ttgetc();
  39. extern  int     ttputc();
  40. extern  int     ttflush();
  41. extern  int     ttclose();
  42. extern  int     timove();
  43. extern  int     tieeol();
  44. extern  int     tieeop();
  45. extern  int     tibeep();
  46. extern  int     tiopen();
  47. extern  int     tirev();
  48. extern    int    ticres();
  49. extern  int     ticlose();
  50. extern  int     tiputc();
  51.  
  52. #if     COLOR
  53. extern  int     tifcol();
  54. extern  int     tibcol();
  55.  
  56. int     cfcolor = -1;           /* current forground color */
  57. int     cbcolor = -1;           /* current background color */
  58. int     ctrans[] =              /* ansi to ti color translation table */
  59.         {BLACK, RED, GREEN, YELLOW, BLUE, MAGENTA, CYAN, WHITE};
  60. #endif
  61.  
  62. /*
  63.  * Standard terminal interface dispatch table. Most of the fields point into
  64.  * "termio" code.
  65.  */
  66. TERM    term    = {
  67.     NROW-1,
  68.         NROW-1,
  69.         NCOL,
  70.         NCOL,
  71.         MARGIN,
  72.         SCRSIZ,
  73.         NPAUSE,
  74.         tiopen,
  75.         ticlose,
  76.         ttgetc,
  77.         tiputc,
  78.         ttflush,
  79.         timove,
  80.         tieeol,
  81.         tieeop,
  82.         tibeep,
  83.         tirev,
  84.         ticres
  85. #if     COLOR
  86.         , tifcol,
  87.         tibcol
  88. #endif
  89. };
  90.  
  91. extern union REGS rg;
  92.  
  93. #if     COLOR
  94. setatt( attr )
  95. int attr;
  96. {
  97.         rg.h.ah = 0x16;         /* set the forground character attribute */
  98.         rg.h.bl = attr;
  99.         int86( 0x49, &rg, &rg );
  100. }
  101.  
  102. tifcol(color)           /* set the current output color */
  103.  
  104. int color;      /* color to set */
  105.  
  106. {
  107.         cfcolor = ctrans[color];
  108.         setatt ( cfcolor );
  109. }
  110.  
  111. tibcol(color)           /* set the current background color */
  112.  
  113. int color;      /* color to set */
  114.  
  115. {
  116.         cbcolor = ctrans[color];
  117. }
  118. #endif
  119.  
  120. timove(row, col)
  121. {
  122.         rg.h.ah = 2;            /* set cursor position function code */
  123.         rg.h.dh = col;
  124.         rg.h.dl = row;
  125.         int86(0x49, &rg, &rg);
  126. }
  127.  
  128. tieeol()        /* erase to the end of the line */
  129.  
  130. {
  131.         int ccol;       /* current column cursor lives */
  132.         int crow;       /*         row  */
  133.  
  134.         /* find the current cursor position */
  135.         rg.h.ah = 3;            /* read cursor position function code */
  136.         int86(0x49, &rg, &rg);
  137.         ccol = rg.h.dh;         /* record current column */
  138.         crow = rg.h.dl;         /* and row */
  139.  
  140.         rg.h.ah = 0x09;         /* Write character at cursor position */
  141.         rg.h.al = ' ';          /* Space */
  142.         rg.h.bl = cfcolor;
  143.         rg.x.cx = NCOL-ccol;    /* Number of characters to write */
  144.         int86(0x49, &rg, &rg);
  145.  
  146. }
  147.  
  148. tiputc(ch)      /* put a character at the current position in the
  149.                    current colors */
  150.  
  151. int ch;
  152.  
  153. {
  154.         rg.h.ah = 0x0E;         /* write char to screen with current attrs */
  155.         rg.h.al = ch;
  156.         int86(0x49, &rg, &rg);
  157. }
  158.  
  159. tieeop()                        /* Actually a clear screen */
  160. {
  161.  
  162.         rg.h.ah = 0x13;         /* Clear Text Screen and Home Cursor */
  163.         int86(0x49, &rg, &rg);
  164. }
  165.  
  166. tirev(state)            /* change reverse video state */
  167.  
  168. int state;      /* TRUE = reverse, FALSE = normal */
  169.  
  170. {
  171.         setatt( state ? cbcolor : cfcolor  );
  172. }
  173.  
  174. ticres()    /* change screen resolution */
  175.  
  176. {
  177.     return(TRUE);
  178. }
  179.  
  180. tibeep()
  181. {
  182.         bdos(6, BEL, 0);
  183. }
  184.  
  185. tiopen()
  186. {
  187.     strcpy(sres, "NORMAL");
  188.         revexist = TRUE;
  189.         ttopen();
  190. }
  191.  
  192. ticlose()
  193.  
  194. {
  195. #if     COLOR
  196.         tifcol(7);
  197.         tibcol(0);
  198. #endif
  199.         ttclose();
  200. }
  201. #else
  202. tihello()
  203. {
  204. }
  205. #endif
  206.  
  207.